home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / toolbar / toolbar.frm < prev    next >
Text File  |  1995-05-07  |  7KB  |  247 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Generic Form (Toolbar)"
  5.    ClientHeight    =   3645
  6.    ClientLeft      =   1185
  7.    ClientTop       =   2130
  8.    ClientWidth     =   5970
  9.    Height          =   4335
  10.    HelpContextID   =   1
  11.    Icon            =   TOOLBAR.FRX:0000
  12.    Left            =   1125
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   243
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   398
  17.    Top             =   1500
  18.    Width           =   6090
  19.    Begin PictureBox PicClip2 
  20.       Height          =   480
  21.       Left            =   0
  22.       Picture         =   TOOLBAR.FRX:0302
  23.       ScaleHeight     =   450
  24.       ScaleWidth      =   1170
  25.       TabIndex        =   4
  26.       Top             =   0
  27.       Width           =   1200
  28.    End
  29.    Begin PictureBox Panel3D2 
  30.       Align           =   2  'Align Bottom
  31.       Height          =   420
  32.       Left            =   0
  33.       ScaleHeight     =   390
  34.       ScaleWidth      =   5940
  35.       TabIndex        =   3
  36.       Top             =   3225
  37.       Width           =   5970
  38.    End
  39.    Begin Timer Timer2 
  40.       Enabled         =   0   'False
  41.       Interval        =   1000
  42.       Left            =   0
  43.       Top             =   840
  44.    End
  45.    Begin PictureBox Panel3D1 
  46.       Align           =   1  'Align Top
  47.       Height          =   405
  48.       Left            =   0
  49.       ScaleHeight     =   375
  50.       ScaleWidth      =   5940
  51.       TabIndex        =   1
  52.       Top             =   420
  53.       Visible         =   0   'False
  54.       Width           =   5970
  55.       Begin PictureBox PicClip1 
  56.          Height          =   480
  57.          Left            =   0
  58.          Picture         =   TOOLBAR.FRX:15DC
  59.          ScaleHeight     =   450
  60.          ScaleWidth      =   1170
  61.          TabIndex        =   5
  62.          Top             =   0
  63.          Width           =   1200
  64.       End
  65.       Begin PictureBox Cmd_Button 
  66.          Height          =   330
  67.          Index           =   0
  68.          Left            =   120
  69.          ScaleHeight     =   300
  70.          ScaleWidth      =   300
  71.          TabIndex        =   2
  72.          Top             =   35
  73.          Width           =   330
  74.       End
  75.    End
  76.    Begin PictureBox ToolBar 
  77.       Align           =   1  'Align Top
  78.       Height          =   420
  79.       Left            =   0
  80.       ScaleHeight     =   390
  81.       ScaleWidth      =   5940
  82.       TabIndex        =   0
  83.       Top             =   0
  84.       Width           =   5970
  85.       Begin PictureBox Toolbar_Button 
  86.          Height          =   360
  87.          Index           =   0
  88.          Left            =   180
  89.          ScaleHeight     =   330
  90.          ScaleWidth      =   330
  91.          TabIndex        =   6
  92.          Top             =   30
  93.          Width           =   360
  94.       End
  95.    End
  96.    Begin Timer Timer1 
  97.       Left            =   0
  98.       Top             =   1200
  99.    End
  100.    Begin Menu mnuFile 
  101.       Caption         =   "&File"
  102.       Begin Menu mnu_Exit 
  103.          Caption         =   "&Exit"
  104.       End
  105.    End
  106.    Begin Menu mnuEdit 
  107.       Caption         =   "&Edit"
  108.       Begin Menu mnu_Copy 
  109.          Caption         =   "&Copy"
  110.       End
  111.    End
  112.    Begin Menu mnuHelp 
  113.       Caption         =   "&Help"
  114.       Begin Menu mnu_About 
  115.          Caption         =   "&About"
  116.       End
  117.    End
  118. End
  119.  
  120. Option Explicit
  121.  
  122. Dim I As Index
  123.  
  124. Sub Form_Load ()
  125. centerform frmMain
  126.  
  127.  Dim strpoint As Integer
  128.  strpoint = 1
  129.  strpoint = picclip1.Cols
  130.  Dim I As Integer, ii As Integer
  131.  For I = 0 To 14 - 1
  132.   If I > 0 Then
  133.     Load Toolbar_button(I)
  134.       Toolbar_button(I).Left = Toolbar_button(I - 1).Left + Toolbar_button(I - 1).Width - 1
  135.       Toolbar_button(I).Visible = True
  136.     Toolbar_button(I).PictureUp = picclip1.GraphicCell(I)
  137.     
  138.     End If
  139.  Next
  140.  
  141. For ii = 0 To 9 - 1
  142.     If ii > 0 Then
  143.     Load cmd_button(ii)
  144.       cmd_button(ii).Left = cmd_button(ii - 1).Left + cmd_button(ii - 1).Width - 1
  145.       cmd_button(ii).Visible = True
  146.       cmd_button(ii - 1).Picture = picclip1.GraphicCell(ii + 1)
  147.   End If
  148.  Next
  149.  Timer1.Interval = 1000
  150.  Timer1.Enabled = True
  151.  timer2.Enabled = True
  152. Toolbar_button(0).Visible = False
  153.  
  154. End Sub
  155.  
  156. Sub Form_Unload (Cancel As Integer)
  157. End
  158. End Sub
  159.  
  160. Sub mnu_About_Click ()
  161. Load frmAbout
  162. End Sub
  163.  
  164. Sub mnu_Exit_Click ()
  165. End
  166. End Sub
  167.  
  168. Sub Timer1_Timer ()
  169.  
  170. Dim T$, tx%
  171. T = Toolbar_button(tx).Tag
  172. Dim curhwnd As Integer      'Current hWnd
  173.       Dim p As POINTAPI
  174.       Dim sp As Integer
  175.       Static LasthWnd As Integer
  176.     
  177.       If GetActiveWindow() = frmMain.hWnd Then
  178.          ' Initialize point structure:
  179.          Call GetCursorPos(p)
  180.          
  181.          curhwnd = WindowFromPoint(p.Y, p.X)
  182.       If curhwnd <> LasthWnd Then
  183.            timer2.Enabled = True
  184.             ' Store the current hWnd:
  185.             LasthWnd = curhwnd
  186.          
  187.             Timer1.Interval = 5
  188.          
  189.             Select Case curhwnd
  190.                
  191.                Case Toolbar.hWnd
  192.                   Displayhelp "Toolbar"
  193.                Case Toolbar_button(0).hWnd
  194.                   Displayhelp ""
  195.                   
  196.                Case Toolbar_button(1).hWnd
  197.                   Displayhelp "Button 1"
  198.                Case Toolbar_button(2).hWnd
  199.                   Displayhelp "Button 2"
  200.                Case Toolbar_button(3).hWnd
  201.                   Displayhelp "Button 3"
  202.                Case Toolbar_button(4).hWnd
  203.                   Displayhelp "Button 4"
  204.                Case Toolbar_button(5).hWnd
  205.                   Displayhelp "Button 5"
  206.                Case Toolbar_button(6).hWnd
  207.                   Displayhelp "Button 6"
  208.                Case Toolbar_button(7).hWnd
  209.                   Displayhelp "Button 7"
  210.                Case Toolbar_button(8).hWnd
  211.                   Displayhelp "Button 8"
  212.                Case Toolbar_button(9).hWnd
  213.                   Displayhelp "Button 9"
  214.                Case Toolbar_button(10).hWnd
  215.                   Displayhelp "Button 10"
  216.                Case Toolbar_button(11).hWnd
  217.                   Displayhelp "Button 11"
  218.                Case Toolbar_button(12).hWnd
  219.                   Displayhelp "Button 12"
  220.                Case Toolbar_button(13).hWnd
  221.                   Displayhelp "Button 13"
  222.                
  223.                Case frmHelp.hWnd
  224.                 ' If it moves onto the help window, hide it:
  225.                  'frmHelp.Hide
  226.                Case Else
  227.                   Displayhelp T$
  228.                   Timer1.Interval = 1000
  229.             
  230.             End Select
  231.             
  232.          End If
  233.       End If
  234.  
  235.  
  236. End Sub
  237.  
  238. Sub Toolbar_Button_Click (Index As Integer, Value As Integer)
  239. Select Case Value
  240. Case True
  241. Toolbar_button(Index).Value = False
  242. Case False
  243. Value = False
  244. End Select
  245. End Sub
  246.  
  247.